' BASIC Anywhere Machine program by Charlie Veniot
' mod of bs6.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 18.22
1 SCREEN 13
2 DIM Temp%(51)
3 X% = INT(RND * 310)
4 Y% = INT(RND * 189)
5 IF G& < 10000 THEN CIRCLE (RND * 319, RND * 199), 10, int(RND * 15 + 16)
6 IF G& AND 7 THEN GET (X%, Y%)-(X% + 9, Y% + 9), Temp%
7 IF G& AND 7 THEN PUT (X%, Y% + 1), Temp%, PSET
8 G& = (G& + 1) MOD 64000
9 IF LEN(INKEY$) = 0 THEN 3